home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed23.d64 / math maze (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  98 lines
  1. 10 REM ** MATHS MAZE MODIFIED FOR THE **
  2. 20 REM * COMMODORE 64 BY D.HALL FEB 83 *
  3. 30 REM *********************************
  4. 100 REM *** INITIALIZE ***
  5. 110 RE$=CHR$(13):QU$=CHR$(34)
  6. 120 VT$=""
  7. 130 SP$="                                      "
  8. 140 DEFFNR(X)=INT(RND(1)*X+1)
  9. 150 PL=1225
  10. 200 REM *** DRAW MAZE ***
  11. 205 T1=TI
  12. 210 POKE53280,8:POKE53281,0:PRINT"[147]"
  13. 212 PRINT"                 [166][166][215][166][166]"
  14. 214 PRINT"             [166][166][215][166][166]   [166][166][215][166][166]"
  15. 216 PRINT"         [166][166][215][166][166]   [166][166][215][166][166]   [166][166][215][166][166]
  16. 218 [153]"     SPC(SPC((null)SPC(SPC(   SPC(SPC((null)SPC(SPC(   SPC(SPC((null)SPC(SPC(   SPC(SPC((null)SPC(SPC(
  17. 220 PRINT" [166][166][215][166][166]   [166][166][215][166][166]   [166][166][215][166][166]   [166][166][215][166][166]   [166][166][215][166][166][218]"
  18. 222 PRINT"     [166][166][215][166][166]   [166][166][215][166][166]   [166][166][215][166][166]   [166][166][215][166][166]"
  19. 224 PRINT"         [166][166][215][166][166]   [166][166][215][166][166]   [166][166][166][215][166]"
  20. 226 PRINT"             [166][166][215][166][166]   [166][166][215][166][166]"
  21. 228 PRINT"                 [166][166][215][166][166]"
  22. 230 PRINT"    N"
  23. 232 PRINT"    [221]"
  24. 234 PRINT" W [195][219][195] E"
  25. 236 PRINT"    [221]"
  26. 238 PRINT"    S
  27. 250 [143] *** SET UP INITIAL POSITION ***
  28. 260 PL[178]1225:PP[178][194](PL):[151]PL,42
  29. 300 [143] *** MOVE ***
  30. 310 [153]VT$;SP$;SP$;SP$;VT$;" WHICH DIRECTION ?"
  31. 320 Z$[178]"NSEW":[141]1000
  32. 330 MV[178][197]([202]("-40+40+01-01",Z[172]3[171]2,3))
  33. 340 [151]PL,PP:PL[178]PL[170]MV:PP[178][194](PL):[151]PL,42
  34. 350 [143] *** ACCESS MOVE ***
  35. 360 [139]PP[178]90[167]900
  36. 370 [139]PP[178]32[167]400
  37. 380 [139]PP[178]102[167]300
  38. 390 [137]450
  39. 400 [143] *** FELL OF THE PATH ***
  40. 410 [153]VT$;SP$;SP$;VT$;" OH DEAR YOU FELL OF THE PATH"
  41. 415 [153]" BACK TO START !! "
  42. 420 X[178]2:[141]1100:[137]210
  43. 450 [143] *** SELECT PROBLEM ***
  44. 460 PT[178][165]R(4):[145]PT[137]500,550,600,650
  45. 500 [143] *** ADD ***
  46. 510 A[178][165]R(9):B[178][165]R(9):C[178]A[170]B:OP$[178]"+":[137]800
  47. 550 [143] *** SUBTRACT ***
  48. 560 A[178][165]R(99):B[178][165]R(9):[139]B[177]A[167]F[178]A:A[178]B:B[178]F
  49. 570 C[178]A[171]B:OP$[178]"-":[137]800
  50. 600 [143] *** MULTIPLY ***
  51. 610 A[178][165]R(9):B[178][165]R(9)
  52. 620 C[178]A[172]B:OP$[178]"*":[137]800
  53. 650 [143] *** RANDOM DIGITS ***
  54. 660 [153]VT$;SP$;SP$;VT$;" ADD THESE NUMBERS ";
  55. 670 X[178]2:[141]1100:C[178]0
  56. 680 [129]I[178]1[164]3:DP[178][165]R(9):DP[178]5[171]DP
  57. 690 X[178][165]R(9):[151]1880[170]DP,X[170]48:C[178]C[170]X:X[178].8:[141]1100
  58. 695 [151]1880[170]DP,32:[130]I:[137]850
  59. 800 [143] *** SET THE PROBLEMS ***
  60. 810 [153]VT$;SP$;SP$;VT$;
  61. 820 A$[178][202]([196](A),2)
  62. 830 B$[178][202]([196](B),2)
  63. 840 [153]" WHAT IS ";A$;" ";OP$;" ";B$;"? ";
  64. 850 [141]1200
  65. 860 [139]AN[179][177]C[167]880
  66. 870 [153]" CORRECT":X[178].5:[141]1100:[137]300
  67. 880 [153]"ON WRONG !  IT WAS ";C
  68. 885 X[178]1:[141]1100:[153]VT$;SP$;SP$;VT$
  69. 890 [137]450
  70. 900 [143] *** END OF GAME ***
  71. 910 T2[178]TI:[153]VT$;SP$;SP$;VT$;
  72. 920 [153]" WELL DONE !! YOU COMPLETED THE MAZE IN ";[181]((T2[171]T1)[173]60);"SECONDS";
  73. 930 [153]" - TRY AGAIN ? (Y/N)"
  74. 940 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]940
  75. 950 [139]A$[178]"Y"[167][138]
  76. 960 [153]"LOADRETURNING TO THE DISK MENU
  77. 970 LOAD"MENU",8
  78. 980 RUN
  79. 990 END
  80. 1000 REM *** AWAIT INPUT ***
  81. 1010 GETA$:IFA$=""THEN1050
  82. 1020 FORZ=1TOLEN(Z$)
  83. 1030 IFMID$(Z$,Z,1)=A$THENRETURN
  84. 1040 NEXTZ:GOTO1010
  85. 1050 POKEPL,32:X=.01:GOSUB1100
  86. 1060 POKEPL,42:X=.01:GOSUB1100
  87. 1070 GOTO1010
  88. 1100 REM ** DELAY X SECONDS ***
  89. 1110 FORT=1TOX*1000:NEXTT:RETURN
  90. 1200 REM *** AWAIT GETS UNTIL RETURN ***
  91. 1210 AN=0
  92. 1220 Z$="0123456789"+RE$+CHR$(20):GOSUB1000
  93. 1230 IFZ=12ANDAN>0THENPRINTCHR$(20);:AN=INT(AN/10):GOTO1220
  94. 1240 IFZ=12THEN1220
  95. 1250 PRINTA$;:IFZ=11THENRETURN
  96. 1260 AN=AN*10+Z-1:DE=DE+1:GOTO1220
  97. 1300 REM WHC  91:03:25
  98.